home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList-0497 / AMOSLIST / littleexamples.lha / Fast2x2zoom.s < prev    next >
Encoding:
Text File  |  1996-01-24  |  673 b   |  44 lines
  1.  
  2.     output    dh1:fast2x2zoom.o
  3.  
  4. cpu    equ    68020
  5.  
  6. ; twobytwo[screen1,screen2,bytewidth,height,planes,tabl]
  7.  
  8. zoom2x2    move.l    (a3)+,a0
  9.     move.l    (a3)+,d7    ;planes
  10.     move.l    (a3)+,d5    ;height
  11.     move.l    (a3)+,d4    ;modulo
  12.     move.w    d4,d2
  13.     subq.w    #1,d5
  14.     add.w    d2,d2
  15.     move.l    (a3)+,a2
  16.     move.l    (a3)+,a1
  17.     subq.w    #1,d7
  18. .ploop    move.l    (a1)+,a3
  19.     move.l    (a2)+,a4
  20.     move.w    d5,d6
  21.     move.l    a4,a5
  22.     moveq.l    #0,d0
  23.     add.l    d2,a5
  24. .yloop    move.w    d4,d3
  25.     subq.w    #1,d3
  26. .xloop    move.b    (a3)+,d0
  27.     IFEQ    cpu-68000
  28.     add.w    d0,d0
  29.     move.w    (a0,d0.w),d1
  30.     move.w    d1,(a4)+
  31.     moveq.l    #0,d0
  32.     ELSE
  33.     move.w    (a0,d0.w*2),d1
  34.     move.w    d1,(a4)+
  35.     ENDC
  36.     move.w    d1,(a5)+
  37.     dbra    d3,.xloop
  38.     add.l    d2,a4
  39.     add.l    d2,a5
  40.     dbra    d6,.yloop
  41.     dbra    d7,.ploop
  42.     rts
  43.  
  44.